home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 118 / 118.d81 / bm file chainer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  369 b   |  13 lines
  1. 10 print"[147][159]":poke53281,0:poke53280,0
  2. 20 input"[159][211][210].[195]hapter name[158]:";f$:iff$=""then20
  3. 22 print:ifleft$(f$,3)<>"sr."thenf$="sr."+f$
  4. 25 input"[159][211][210].[198]ile to chain[158]:";c$:ifc$=""then25
  5. 27 print:ifleft$(c$,3)<>"sr."thenc$="sr."+c$
  6. 40 input"[159][196]evice[158]:";d$:ifval(d$)<8then40
  7. 50 print"[195]haining "c$" to "f$"..."
  8. 60 open2,val(d$),2,f$+",p,a"
  9. 70 print#2,chr$(0);c$;:close2
  10. 80 open15,val(d$),15:input#15,a$,b$,c$,d$:printa$","b$","c$","d$
  11. 90 geta$:ifa$=""then90
  12. 100 run
  13.